很久没有上这里了，今天看到了这个问题，尝试做了一个；
10多年的长沙网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。全网营销推广的优势是能够根据用户设备显示端的尺寸不同，自动调整长沙建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联从事“长沙网站设计”,“长沙网站推广”以来，每个客户项目都认真落实执行。
本例以源文本框TextBox1全部文字作为拖放文字为例，实现拖放
1、向一个窗体中添加两个文本框，分别名为TextBox1，TextBox2。注意：把TextBox2控件的AllowDrop属性设置成True，这点不要遗漏。
2、完整的代码如下：
Public Class Form1
Private MouseIsDown As Boolean = False
Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
'设置一个标志以显示鼠标已按下。
MouseIsDown = True
End Sub
Private Sub TextBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseMove
If MouseIsDown Then
'开始拖动（将TextBox1的文本内容作为拖放内容）。
TextBox1.DoDragDrop(TextBox1.Text, DragDropEffects.Copy)
End If
MouseIsDown = False
End Sub
Private Sub TextBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragEnter
'检查正在被拖放的数据的格式。
If (e.Data.GetDataPresent(DataFormats.Text)) Then
'显示复制光标（表示是拖放行为）。
e.Effect = DragDropEffects.Copy
Else
'显示不放置光标（表示不是拖放行为）。
e.Effect = DragDropEffects.None
End If
End Sub
Private Sub TextBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragDrop
'粘贴文本（将拖放内容作为TextBox2的文本内容）。
TextBox2.Text = e.Data.GetData(DataFormats.Text)
End Sub
End Class
这个问题不是小问题。如果只是90度转，vb.net的picture控件有RotateFlip方法。
任意角度，可以参考这个
;cs-lang=csharp
图片的变换涉及坐标处理，要自己算。
还有可以用Windows Presentation Foundation (WPF) 编程，里面的image控件好像也能旋转图片。
如果是VB6，恐怕只能用API函数了，百度一下“vb 旋转图片” “VB api函数”了解一下
VB的Label控件内的汉字文字向左（逆时针）转90度，可对控件的Fonf属性进行设置，选有@前缀的汉字字体，并调整好Labei控件的尺寸，并对WordWrap 属性和AutoSize 属性进行必要设置。
WordWrap 属性
返回或设置一个值，该值用来指示一个 AutoSize 属性设置为 True 的 Label
控件，是否要进行水平或垂直展开以适合其 Caption 属性中指定的文本的要求。
AutoSize 属性，返回或设置一个值，以决定控件是否自动改变大小以显示其全部内容。
为了决定 Label 控件如何显示其内容，应使用此属性。例如，一个动态改变的图形可能具有一个包含的文本也发生改变的Label。为了使 Label 保持水平方向尺寸不变并允许增加或减少文本，则应将 WordWrap 和 AutoSize 属性设置为 True。
VB.net可以做，，绘制的不是图片，还是控件，这就有点难了。
建议你还是先把文字画到一张图片上，然后再对图片旋转，淡入淡出都好做。
我可以帮你，但暂时没有时间。如果你会vb，那么你自己看Help Library学下其中的函数怎么用就行了。
buffer = "79 6F 75 20 63 68 6F 6F 73 65 20 73 70 65 65 64 21 0A 0A 32 35 35 2C 32 35 35 2C 32 35 35 0A"
arr = Split(buffer, " ")
For i = 0 To UBound(arr)
s = s Chr(Val("h" arr(i)))
Next
MsgBox s
