有没有会Windows phone 8 的大神在，求解拖拽怎么实现

<Canvas x:Name="piccanvas" HorizontalAlignment="Left" Height="460" VerticalAlignment="Top" Width="611" Margin="0,10,0,0"> <Canvas.Background> <ImageBrush Stretch="Fill" ImageSource="/images/Picture1.jpg"/> </Canvas.Background> <StackPanel x:Name="wordspanel" Height="300" Canvas.Left="622" Canvas.Top="2" Width="100"> <TextBlock x:Name="txtapple" TextWrapping="Wrap" Text="苹果" FontSize="30" HorizontalAlignment="Center" /> <TextBlock x:Name="txtbanana" TextWrapping="Wrap" Text="香蕉" FontSize="30" HorizontalAlignment="Center"> </TextBlock> <TextBlock x:Name="txtorange" TextWrapping="Wrap" Text="橙子" FontSize="30" HorizontalAlignment="Center"> </TextBlock> <TextBlock x:Name="txtpineapple" TextWrapping="Wrap" Text="菠萝" FontSize="30" HorizontalAlignment="Center"> </TextBlock> <TextBlock x:Name="txtgrapes" TextWrapping="Wrap" Text="葡萄" FontSize="30" HorizontalAlignment="Center"> </TextBlock </StackPanel> <Button x:Name="gamepageconfirmbtn" Content="确定" Canvas.Left="622" Canvas.Top="307" Width="100" Click="gamepageconfirmbtn_Click_1"/> <Button x:Name="gamepagebackbtn" Content="返回" Canvas.Left="622" Canvas.Top="381" Width="100" Height="70" Click="gamepagebackbtn_Click"/> <TextBlock x:Name="appletxtblk" Canvas.Left="96" TextWrapping="Wrap" Canvas.Top="240" Height="163" Width="212" MouseEnter="appletxtblk_MouseEnter" FontSize="30"/> </Canvas>