Cassis

Aa, zutto kurikaeshiteta
Zutto kanashimasete bakari datta
Aa, kitto anata sae mo kizu tsukete
Boku wa ugokeno mama

Aa, anata ni fureru koto ga
Naze konna ni kurushii no desu ka?
Kitto onaji koto wo kurikaeshite
Anata wo ushinatte shimau no ga kowakatta kara

Yori suo koto de nuguou to shita wasure kirenakatta hi wo
Anata wa nani mo kikazu ni kono te wo nigettekureta ne

Ashita anata no kimochi ga hanarete mo kitto kawarazu ai shiteru.
Ashita anata ni boku ga mienakute mo kitto kawarazu ai shiteru

I WILL WALK TOGETHER, to future not promised to yet
It keeps walking together, to the future which you are...

Tsurai koto sae wasureru kurai anata wo omotteiru
Aenai yoru wo kazoeru tabi ni koga reru mune

Kake chigai no sabishisa tsunoru
Dou ka hitorikiri de nakanaide
Donna ni hanareteite mo
Shinjiaeru futari de iyou

Dou ka kono mama waratteitai anata wo kizutsuke sasenaide
Toki ga tatsu tabi usurete itta anna omoi kurikaaeshitekunai

Ashita anata no kimochi ga hanarete mo kitto kawarazu ai shiteiru
Ashita anata ni boku ga mienakute mo kitto kawarazu ai shiteiru.

Dou ka boku dake wo mitsumeteite
Dou ka kono te ga togukenú iyou

I WILL WALK TOGETHER, to future not promised to yet
It keeps walking together, to the future which you are...

Membuat form menjadi Transfarant

 Ketikan Code ini di General Declaration

Option Explicit

Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2

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 crColor As Long, ByVal nAlpha As Byte, ByVal dwFlags As Long) As Long

Private Sub Form_Load()
Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
Call SetLayeredWindowAttributes(Me.hwnd, RGB(255, 0, 255), 128, LWA_ALPHA Or LWA_COLORKEY)
End Sub

Animasi Bintang

   Ketikan Source code berikut adalah untuk membuat efek Star Motion pada background form di Visual Basic. Bintang-bintang berwarna-warni bergerak menyebar secara random di tengah-tengah form.

Buat 1 project dengan :
1 Form
1 Timer

Masukan source code berikut pada Form :

Dim X(100), Y(100), Z(100) As Integer
Dim tmpX(100), tmpY(100), tmpZ(100) As Integer
Dim K As Integer
Dim Zoom As Integer
Dim Speed As Integer

Private Sub Form_Activate()
Speed = -1
K = 2038
Zoom = 256
Timer1.Interval = 1

For i = 0 To 100
X(i) = Int(Rnd * 1024) - 512
Y(i) = Int(Rnd * 1024) - 512
Z(i) = Int(Rnd * 512) - 256
Next i
End Sub

Private Sub Timer1_Timer()
For i = 0 To 100
Circle (tmpX(i), tmpY(i)), 5, BackColor
Z(i) = Z(i) + Speed
If Z(i) > 255 Then Z(i) = -255
If Z(i) < -255 Then Z(i) = 255
tmpZ(i) = Z(i) + Zoom
tmpX(i) = (X(i) * K / tmpZ(i)) + (Form1.Width / 2)
tmpY(i) = (Y(i) * K / tmpZ(i)) + (Form1.Height / 2)
Radius = 1
StarColor = 256 - Z(i)
Circle (tmpX(i), tmpY(i)), 5, RGB(StarColor, StarColor, StarColor)
Next i
End Sub

Membuat Vibrate pada form

Ketikan source code

Private Sub Vibrate(frm As Form, rScale As Integer, Times As Integer)
Dim Lft As Long, Tp As Long
Dim i
Lft = frm.Left
Tp = frm.Top
For i = 1 To Times
frm.Move Lft + Sgn(rScale)
Pause 20
frm.Move Lft + rScale
Pause 20
frm.Move Lft, Tp + Sgn(rScale), frm.Width, frm.Height
Pause 20
frm.Move Lft, Tp + rScale, frm.Width, frm.Height
Pause 20
Next i
End Sub

Private Sub Pause(ms)
Dim secs
Dim g
secs = ms / 1000
g = Timer
Do While Timer - g < secs
DoEvents
Loop
End Sub

Private Sub Form_Activate()
Vibrate Me, 100, 20
End Sub

Visual Basic

Animasi Form Visual Basic

   Source code berikut adalah untuk membuat efek Star Motion pada background form di Visual Basic. Bintang-bintang berwarna-warni bergerak menyebar secara random di tengah-tengah form.

Buat 1 project dengan :
1 Form
1 Timer

Masukan source code berikut pada Form :

Dim X(100), Y(100), Z(100) As Integer
Dim tmpX(100), tmpY(100), tmpZ(100) As Integer
Dim K As Integer
Dim Zoom As Integer
Dim Speed As Integer

Private Sub Form_Activate()
Speed = -1
K = 2038
Zoom = 256
Timer1.Interval = 1

For i = 0 To 100
X(i) = Int(Rnd * 1024) - 512
Y(i) = Int(Rnd * 1024) - 512
Z(i) = Int(Rnd * 512) - 256
Next i
End Sub

Private Sub Timer1_Timer()
For i = 0 To 100
Circle (tmpX(i), tmpY(i)), 5, BackColor
Z(i) = Z(i) + Speed
If Z(i) > 255 Then Z(i) = -255
If Z(i) < -255 Then Z(i) = 255
tmpZ(i) = Z(i) + Zoom
tmpX(i) = (X(i) * K / tmpZ(i)) + (Form1.Width / 2)
tmpY(i) = (Y(i) * K / tmpZ(i)) + (Form1.Height / 2)
Radius = 1
StarColor = 256 - Z(i)
Circle (tmpX(i), tmpY(i)), 5, RGB(StarColor, StarColor, StarColor)
Next i
End Sub