できた
Dim x as Integer, y As Integer, sen as Boolean
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
　　Select Case KeyCode
　　　　Case 39 : x = x + 1
　　　　Case 40 : y = y + 1
　　　　Case 37 : x = x - 1
　　　　Case 38 : y = y - 1
　　　　Case 13
　　　　　　y = y + 1
　　　　　　x = 0
　　End Select
　　Me.Refresh
End Sub
Private Sub Form_Paint()
　　Me.PSet (0, 0)
　　Me.FontName = "ＭＳ ゴシック"
　　Me.Font.Size = 16
　　Me.Font.Bold = True
　　Print "あいうえお"
　　Print "かきくけこ"
　　Print "さしすせそ"
　　If sen Then Line (x * 20, y * 20)-(x * 20, y * 20 + 20)
End Sub
Private Sub Timer1_Timer()
　　If sen Then sen = False
　　Else sen = True
　　Me.Refresh
End Sub