VB課題

やっと終わったというか、教科書があまりに初心者向けなので、乱数組み込めず、検索しても意味不明なので、なんと言うか、適当にやる気の無さをアピールした所存でございます。
タハハ

ソース載せときます。
素人でもソース見てどんなだか分かります。
技術はありません。
適当にアクティブっぽくしただけです。

あと、電卓が作れません。
でも別によし。

Private Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long)
Dim i As Long

Private Sub Command1_Click()
If Text3.Text = "青っぽい" Then
Text1.BackColor = &H8000000F
Text1.ForeColor = -2147483638
Text2.BackColor = &H80000014
Text2.ForeColor = &H80000010
Text3.Text = "グレー"
Else
Text1.BackColor = &H8000000D
Text1.ForeColor = &H80000008
Text2.BackColor = &H8000000F

Text2.ForeColor = &H8000000B
Text3.Text = "青っぽい"
End If

End Sub
Private Sub Command2_Click()
Dim k As Integer

If Text2.Text = " ○" Then
Text3.Text = "もう終了"
Else
For k = 1 To 5
Text2.Text = " " + Text2
Text1.Text = "　" + Text1
Sleep 10
DoEvents
Next
End If

End Sub

Private Sub Command3_Click()
Text1.Text = "●"
Text2.Text = "○"
Text3.Text = "白黒"
Text1.BackColor = &H80000009
Text1.ForeColor = &H80000008
Text2.BackColor = &H80000009
Text2.ForeColor = &H80000008
End Sub