用VB程序怎么做一个心型图？

Dim X1, Y1, X2, Y2 As Integer\x0d\x0aDim I As Integer\x0d\x0aDim J As Boolean\x0d\x0aDim K As IntegerDim WithEvents Label1 As Label\x0d\x0aDim WithEvents Timer1 As TimerPrivate Sub Form_Activate()\x0d\x0a I = 100\x0d\x0a K = 100\x0d\x0a X1 = Me.Width / 2\x0d\x0a Y1 = Me.Height / 3\x0d\x0a X2 = X1\x0d\x0a Y2 = Y1\x0d\x0aLabel1.Top = Me.Height / 2 - Label1.Height / 2\x0d\x0a Label1.Left = Me.Width / 2 - Label1.Width / 2\x0d\x0aEnd SubPrivate Sub Form_Load() Me.BackColor = &H0&\x0d\x0a Me.FillColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)\x0d\x0a Me.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)\x0d\x0a Me.DrawMode = 13\x0d\x0a Me.DrawWidth = 2\x0d\x0a Me.FillStyle = 7\x0d\x0aSet Label1 = Me.Controls.Add("VB.Label", "Label1")\x0d\x0a Set Timer1 = Me.Controls.Add("VB.Timer", "Timer1")\x0d\x0aLabel1.Visible = True\x0d\x0a Label1.AutoSize = True\x0d\x0a Label1.BackStyle = 0\x0d\x0a Label1.Caption = "I LOVE YOU"\x0d\x0a Label1.Font.Size = 60\x0d\x0a Label1.ForeColor = &HFF00&\x0d\x0a Timer1.Enabled = True\x0d\x0a Timer1.Interval = 10\x0d\x0a Me.WindowState = 2\x0d\x0aEnd SubPrivate Sub Timer1_Timer()\x0d\x0a Me.Circle (X1, Y1), 250\x0d\x0a Me.Circle (X2, Y2), 250\x0d\x0a \x0d\x0a If Y1 = Me.Height / 3 Then\x0d\x0a K = K - 5\x0d\x0aEnd If\x0d\x0a Else\x0d\x0aI = 100\x0d\x0aK = 100\x0d\x0aX1 = Me.Width / 2\x0d\x0aY1 = Me.Height / 3\x0d\x0aX2 = X1\x0d\x0aY2 = Y1\x0d\x0a \x0d\x0aMe.FillColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)\x0d\x0aMe.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) End If\x0d\x0a \x0d\x0a Me.DrawWidth = 3\x0d\x0a \x0d\x0a Me.PSet (Rnd * Me.Width, Rnd * Me.Height), RGB(Rnd * 225, Rnd * 225, Rnd * 225)\x0d\x0a Me.DrawWidth = 2\x0d\x0aEnd SubPrivate Sub Form_Click()\x0d\x0a End\x0d\x0aEnd SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)\x0d\x0a End\x0d\x0aEnd Sub

你的描述我不是很明白，可以给你个思路！首先找个爱心形状的图片，加载进窗体的picturebox中，饥并调整到合适大小纳肢枝。然后用以下让窗体透明。洞敏'设置Me.BorderStyle = 0

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Const WS_EX_LAYERED = &H80000

Private Const GWL_EXSTYLE = (-20)

Private Const LWA_ALPHA = &H2

Private Const LWA_COLORKEY = &H1

Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const WM_NCLBUTTONDOWN = &HA1

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Sub Form_Load()

Me.BackColor = &HFF0000

Dim rtn As Long

rtn = GetWindowLong(hwnd, GWL_EXSTYLE)

rtn = rtn Or WS_EX_LAYERED

SetWindowLong hwnd, GWL_EXSTYLE, rtn

SetLayeredWindowAttributes hwnd, &HFF0000, 0, LWA_COLORKEY

End Sub

Private Sub form_Click()

Print Tab(10) "**"

Print Tab(20) "**",

Print Tab(6) "*"

Print Tab(14) "*"

Print Tab(18) 唤清"*"

Print Tab(25) "*",

Print Tab(4) "*"

Print Tab(15) "*"

Print Tab(17) "*"

Print Tab(27) "*",

Print Tab(3) "*"

Print Tab(16) "*"

Print Tab(28) "*"和数前,

Print Tab(3) "*"

Print Tab(28) "*",

Print Tab(4) "*"

Print Tab(27) "*",

Print Tab(5) "*"

Print Tab(26) "*",

Print Tab(7) "*"

Print Tab(24) "*",

Print Tab(9) "*"

Print Tab(22) "*",

Print Tab(11) "毕缺*"

Print Tab(20) "*",

Print Tab(13) "*"

Print Tab(17) "*",

Print Tab(15) "*",

End Sub

'单击窗口看运行效果  看在我这么辛苦的份上 采纳吧

---