できた 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
